home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 98 / Skunkware 98.iso / src / interp / perl-5.003.tar.gz / perl-5.003.tar / perl-5.003 / t / comp / package.t < prev    next >
Text File  |  1994-10-18  |  696b  |  36 lines
  1. #!./perl
  2.  
  3. print "1..7\n";
  4.  
  5. $blurfl = 123;
  6. $foo = 3;
  7.  
  8. package XYZ;
  9.  
  10. $bar = 4;
  11.  
  12. {
  13.     package ABC;
  14.     $blurfl = 5;
  15.     $main'a = $'b;
  16. }
  17.  
  18. $ABC'dyick = 6;
  19.  
  20. $xyz = 2;
  21.  
  22. $main = join(':', sort(keys %main::));
  23. $XYZ = join(':', sort(keys %XYZ::));
  24. $ABC = join(':', sort(keys %ABC::));
  25.  
  26. print $XYZ eq 'ABC:XYZ:bar:main:xyz' ? "ok 1\n" : "not ok 1 '$XYZ'\n";
  27. print $ABC eq 'blurfl:dyick' ? "ok 2\n" : "not ok 2 '$ABC'\n";
  28. print $main'blurfl == 123 ? "ok 3\n" : "not ok 3\n";
  29.  
  30. package ABC;
  31.  
  32. print $blurfl == 5 ? "ok 4\n" : "not ok 4\n";
  33. eval 'print $blurfl == 5 ? "ok 5\n" : "not ok 5\n";';
  34. eval 'package main; print $blurfl == 123 ? "ok 6\n" : "not ok 6\n";';
  35. print $blurfl == 5 ? "ok 7\n" : "not ok 7\n";
  36.